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SCOPE 

This is a Reliability Test Program for the 1620 - 1622 
System. Cards are punched with a ripple pattern using alpha- 
numeric characters which are read back in and compared to 
stored data, 

Basically, the program operates in the following sequence: 

a) Check for Any Data Checks. 

b) Read a card. 

c) Check 1st character. 

d) Compare card information. 

e) Same as (a) through (d) above . 

f) Punch card, 

g) Loops back to (a). 

There is a delay routine (cho-cho) designed to create every 
possible timing condition between reading and punching. The 
delay starts at approximately ten seconds between cards and 
progresses to zero delay (maximum reading and punching speed). 
One complete cycle of the delay (maximum delay to zero and back 
to maximum) takes approximately 30 minutes. 

OPERATING INSTRUCTIONS 

1. Reset 1620. 

2. Place Program Deck in Card Reader Hopper. 

3. Push "Load" P. B. on 1622. 

4. 1620 will HALT after typing out Heading. 

5. a. Set Proaram SWS for desired options- 

b. Ready the punch. 

(Note: To punch the Initial ripple deck, place SW 1 ON 
and Start After punching about 200 cards, press the SIE 
Key. Insert 4900652, Release, place SW 1 OFF and proceed.) 

c. Place punched ripple cards In card reader hopper. Ready 
the reader. 

6. Push START on 1620 to begin Program. 

7. Place punched cards In reader hopper to be read and checked. 

Switch Settings (suggested) 

Data Check = Program 
I/O Check = Program 
Arith Check = Must be Program 
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OPERATING INSTRUCTIONS (cont'd) Page -2- 

SW 1 = OFF (After punching ripple deck) 

SW2 = OFF 

SW 3 = OFF 

SW 4 = OFF 

SW 1 OFF Read and punch 
ON Punch only 

SW 2 OFF Read and Punch 
ON Read only 

SW 3 OFF Errors typed out 

ON Bypass ETO (for trouble shooting) 

SW 4 OFF Delay changes 

ON Delay remains constant 

Error Type- Outs (ETOs) : 

There are several Data Checks made throughout the program. 
When an error has been detected, a type- out (if program SW 3 is 
OFF) will give the following information about the error: 

a) The memory location of the instruction that detected the 
error. * . 

b) Where possible the correct information will be typed out 
followed by the information containing the error. 

0724 READ CHECK 

00736 WRITE CHECK 

00748 0/F INDICATOR ON 

00760 MBR - E CHECK 

00772 HBR - 0 CHECK 

00784 MAR CHECK 

Error Type-Outs (ETOs ) (cont'd) 

The above type-outs are due to a data check condition at 
the start of the read routine AH of these Indicators 
should b*- OFF at the start of each Program pass. 
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00976 READ CHECK 1ST READ 
01012 98 " 2ND 
01048 ,s " 3R0 «• 

These ETOs are due to a read check when the 1622 transfers the 
card information to the 1620. Three attempts are made to 
transfer each card if necessary. Check 1620 1/0 translation 
circuit and check buffer (1622) for correct data 

01096 MBR - E CHECK AFTER CARD RE AO 
01108 MBR - 0 CHECK AFTER CARD READ 

These ETOs are due to an MBR check and indicate trouble In the 
i/0 translator or memory circuit (1620). The checks are made 
directly after a card Is read by the 1620. 

01120 RE AO- IN AREA 0/F 

The 1620 received more than 80 alpha characters from the 1622. 

01204 NO 1ST COMPARE 

The first character In the card Read-In was not one of the 48 
alpha characters used by this program. Check to see If card 
contains correct data. 

01360 MBR - E CHECK AFTER 1ST COMPARE 
01372 MBR - 0 CHECK AFTER 1ST COMPARE 

01564 MBR - E CK BEFORE COMPARE. 
01576 MBR - 0 CK BEFORE COMPARE. 

Due to data check while performing 1st compare routine. 
Check 1620 for correct Internal transfer operation. 

01624 E/Z TGR OFF COMPARE DATA FOLLOWS. 

The correct card data will be typed from STORED DATA followed 
by the data read-in from the card. 

This ET0 Is due to the information read-In not corresponding 
to the stored data. Check card and buffer (1622) for correct 
data. 

01636 MBR - E CHECK AFTER COMPARE, DATA FOLLOWS. 
01648 MBR - 0 CHECK AFTER COMPARE, DATA FOLLOWS. 

Data typed -out Is same as for E/Z TGR OFF (above). Caused 
during card compare routine by Internal transfer operation 
(1620) 
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Error Type-Outs (ETOs) (cont'd) 

01960 WRITE CHECK AFTE[R PUNCH. 

Checked after each punch routine, Check punched 
card for correct data. 

The complete normal typeout Information will be as follows: 

1622 CARD READER-PUNCH DELAY 1003. AkirN Akll w 

SW 1 0N= PUNCH ONLY. SW 2 0N= READ AND COMPARE ONLY. 

SW 3 0N= BY-PASS ETOS. SW 4 ON- STOP CHO-CHO DELAY CHANGE. 
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MEMORY ADDRESS ALLOCATIONS 



0 0 0 0 0 » 0 0 0 9 6 Load Card and Branch Instructions 

10 0 » 3 9 9 Math. Tables 

4 12 » 5 9 1 Load Program 

6 5 2 ■» 2 3 8 0 Main Program 

2 5 12 m 3 8 0 7 ET0 Routines 

3 8 0 9 1 - 5 0 6 5 ET0 Data 

5 10 1 » 5 2 5 9 Card Counter T. O. Data 

5 2 6 1 — 5 5 9 9 Heading TO Data 

5 6 0 5 » 5 9 2 5 Card Compare Data 

5 9 3 5 * 6 16 5 Read-In Clear Data 

617 5 » 6 4 0 5 1st Character Compare Data 

6 4 15 6 7 3 5 Compare Working Area 

6 7 4 5 » 6 9 7 5 Read-In Area 
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8003 LOAD PfWRAH 



00000 to 00059 



36 


00060 


00500 


36 


00100 
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00160 


00500 


36 


00220 


00500 


36 


00280 


00500 



00060 


to 


00095 


36 


00340 00500 


36 


00000 00500 


ks 


00000 00000 


^ , 

00000 


to 


00059 



36 


00652 


00500 


11 


00006 


00060 


14 


00006 


06772 


46 


00652 


01200 


49 


00000 





Card 

m 



Card 

#2 



Card 

m 



Ffrst and second Load Cards load 
the math tables and the Program 
Load Card. (Cards 3 through 7 
contain the math tables.) 



Eighth Load Card contains 
Instructions for loading core storage. 
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IO03 
PROGRAM 



OOkU 00612 



LOAD 
PROGRAM 




HEADING 
T. 0. 



< 


ON 




^ DFF 


00676 


00711 


RESET 




CLEAR 


00712 


00795 



02836 4 



> 01708 




001072 



LOAD FROM CARDS 



LOAD PROGRAM 

LOAD MATH TABLES & 

PROGRAM 



MATH TABLES LOADED 



HEADING TYPE -OUT 
PUNCH ONLY - SW #\ ON 



RESET & CLEAR: 
COMPARE WORKING AREA 
READ- IN AREA 
FIRST COMPARE ADDRESS 



DATA CK. 

RD CK, WRT, 0/F, MBR-E, 
MBR-O, MAR CKS. 



READ DELAY 
(CHO-CHO) 

CONTROLLED BY SW tik 



READ A CARD 



DATA CK. 



BY -PASS 2nd & 3rd READS 
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FROMl_lTO 
01000 



FROM 
E.T.O. 
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01072 



02932-4 



CARD COUNTER | 



02992 M YES 
030^0/^ 



03100 4 




012*tO 



01359 



TRANSFER 
ADDRESS 



01360 



01371 



03256 .YES 
0330^ 




BY-PASS 3rd READ 



STEP READER CARD COUNTER 



DATA CK. 



0/F IF MORE THAN 80 
CHARACTERS READ 



1st CHARACTER IS CHECK 
WITH DATA IN MEMORY TO 
SET UP AN ADDRESS TO 
COMPARE THE CARD READ 
IN FOR CORRECT DATA 
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03460 «- 



NO 
COMP 



01384 | 03.491 



DEFINE FIELD 
SET U"S 



Q1492 



± 



OI563 



DEFINE 


FIELD 


SET *'S 


01564 ^ 


f 01587 




01588 * 01623 



COMPARE 

CARD 



•SET tf*S IN COMPARE WORKING 
AREA TO DEFINE FIELD 
FOR "CARD COMPARE" 



SET *«S IN COMPARE WORKING 
AREA TO DEFINE FIELD FOR 
"CARD COMPARE" 



DATA CK. 



COMPARE CARD READ 

WITH KNOWN DATA IN MEMORY 



03568 
03616 



OO6524. 



Yes 



READ 






PUNCH 


01708 


01791 



SET UP 

PUNCH 

ADDR 



00652 



DATA CK 



READ ONLY (SW #2 ON) 



DETERMINE IF READ OR 
PUNCH OPERATION IS NEXT 



STEP PUNCH ADr '.ESS TO 
PRODUCE RIPPLE DECK 



01792 



01935 



PUNCH 



DELAY 
(CHO-CHO) 



01948 




PUNCH DELAY 
(CONTROLLED BY SW #4) 



PUNCH RIPPLE DECK FROM 
DATA STORED IN MEMORY 
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03664^- 



01960 

YES 
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RESTART 
PROGRAM 
00652 



DATA CK. 



01984 



02295 



CARD 
COUNTER 
RESET & T.Q. 



MAINTAINS COUNT OF CAROS 
READ & PUNCHED. 
COUNTER READ-0UT=02212 
COUNTER RESET =02056 



02332 



FROM ALL 
ETO ROUTINES 

02367 



RESTART 
PROGRAM 
00652 



00652 



ALL ETO ROUTINES 
BRANCH TO HERE TO RE- 
START THE PROGRAM 






OFF 


CARRIAGE 
RETURN 







NEXT 
* STEP IN 
PROGRAM 



I 




C.R. 







ETO 



ERROR TYPED-OUT 



ETO 



4» 



TO ADDITIONAL 
ETO OR TO 02332 
(RESTART PROGRAM) 







C.R. 








02332 

(RESTART PROGRAM) 
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0OT.2 
00724 

mm 
omm 

0Q1A 




46 

26 

26 

W 
4% 

46 

46 
46 
46 
46- 



06735 
06975 
01167 
00000 
02512 
Q2572 
02620 
Q2668 
02728 
027: 
W 



00000. 

00100 

05925 

06165 

T56175 

00000 

00600 

00700 

01400 

01600 

01700 

00600 



06000 

00000 
T55101 
01400 
00000 
U0000 
00400 
015002 
01400 
00000 

TO101 

00000 
00000 
00000 
00500 
00600 



NOP 

BI 

TF 

TF 

TFM 

NOP 

BI 

BI 

BI 

BI 

BI 

BI _ 



CHECK SW #1 
RESET COMPARE AREA 
CLEAR READ-IN AREA 
RESET FIRST COMP. ADDRESS 

READ CHK 

WR CHK 

OVERFLOW 

MBR-EVEN 

MBR-ODD 

MAR 



(Mm 

00830 

owl 
omm 

00910 
00928 
00940 
0.Q&52 



41 
11 

46 
49 

i-e- 

46 

n. 



16 
49 
41 
41 
37 
46 



00949 



»4 <> n 



00952. 
MfcO 
00000 
06745 

g ap . 



NOP 

NOP 

AM 

BI 

B 

TFM 

BI 

AM 

BI 
B 

TFM 
B 

NOP 
NOP 
RA 

BL 



ADD TO DELAY COUNTER 
OVERFLOW? 

RESET DELAY COUNTER 
CHECK SW #4 
SHORTEN DELAY 
OVERFLOW? 

RESTORE LONG DELAY 



READ A CARD 
READ CHK? 



mem OOO06 B BYPASS 2nd & 3rd tries 
87 06745 00500 RA READ 2nd ATTEMPT 
.46 02884 00600 BI READ CHK? 



01 000 



**** 



0102 
0103.6 
01048 



01072 
01034 
01096 



49 &1072 "00000 B BYPASS 3rd try 
37. 06745 . 00500 RA READ 3rd ATTEMPT 
46 02932 00600 BI READ CHK? 



TOT 
02030 
02044 
02992 
03040 



0 



3M 



mm 
mm 

01144 
01156 
01168 

01180; 

01192 



49 
II 
43 

46 
46 



OOO6O 
<W01 
02023 
01600 
01700 



B 

AM 
BD 
BI 
BI 



45 03ltt) 06909 BNR 



STEP CARD RD COUNTER 

MBR-EVEN CHK? 

M BR -ODD CHK? 



IT 
32 
24 
47 
49 
14 
46 



01216 
01228 
01240 
01252 
01264 
01276 
01288 
01300 



150000 
06744 
06745 
01192 
01240 
01167 
.03172 



00000 
00000 
56175 
01200 
00000 
1)6275 
01200 



NOP 
SF 
C 

BNI 
B 

CM 
BI 



COMPARE 1st CHARACTER 



11 
49 
41 
25 
25 
25 
11 
49 



01167 
01156 
00000 
01320 
01319 
01318 



01336 



00002 
00000 
00000 
01167 
01166 
01165 
00240 
00000 



AM 

B 

NOP 

TDl 

TD> 

TDJ 

AM 

B 



STEP COMPARE ADDRESS • 

TRANSFER ADDRESS 

STEP TO COMPARE DATA ADD. 
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41 


00060 


AAA A A 

00000 


NOP 




A-1 a O A 

01324 


41 


OOObO 


00000 


NOP 




01336 


26 


AH AAA 

01332 


01320 


TF 




01348 


26 


A O f~ "1 Vl 

03514 


01320 


TF 




A-l A /-J /■"N 

01360 


a r* 

46 


03256 


A-t A A A 

01600 


BI 
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03304 
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01700 


BI 


MBR-ODD CHK? 
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41 


A A /A A A 
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A A A A A 
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AH A A /"» 

01396 


12 


a-i a o a 
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A A A A-1 
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SM 




01408 


26 


01426 


A-1 A O A 

01320 


TF 




01420 


A C\ 
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"7*\ a a a, a 
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SF 
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A-f A A A 

01320 
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01320 


TF 
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SF 
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11 
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AM 
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01510 


01332 


TF 




01504 


15 


(50000 
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TDM 




01516 


11 


01332 


00001 


AM 




01528 


26 


01 546 


01332 


TF 




01 540 


15 


00000 
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TDM 




01552 


12 


01332 


00002 


SM 




01564 


46 


03352 


01600 


BI 




01576 


46 


03400 


01700 


BI 




01588 


41 


00000 


00000 


NOP 




01600 


O A 

26 


A i a -t a 

01618 


01332 


TF 




01612 


24 


06611 


06903 


C 


COMPARE 


01624 


47 


03460 


01200 


BNI 




01636 


46 


03563 


01600 


BI 




A-1 /"> /I a 

01 648 


a a 

46 


A O f~* *1 A 

03616 


A -i n A A 

01700 


BI 




01660 


46 


00652 


00200 




CHECK SW #2 


01672 
01684 
01 696 


11 
43 

a r\ 

49 


A a 1-7 a A 

01706 

A -1 r~7 A O 

01703 
00652 


A A* A F" A 
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00000 


AM | 
B J 


R EAD-R E AD-PUNCH 
COUNTER 


01708 
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00000 


AAAAA 
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01720 
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01954 
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00002 


AM 


A f '1 1 1 — 1-1 — \ -i — x f TAT « T T A T*N. T~^v T*^* T™1 A1 A1 

STEP PUNCH ADDRESS 


A-t r~7 A A 

01732 


14 


01954 


05705 


CM 
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01744 


46 


A H I — 7 A r~\ 

01768 
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49 
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TFM 


RESTORE PUNCH ADDRESS 
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01707 
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TFM 


RESET RD-RD-PCH COUNTER 
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01 792 


41 


01936 
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11 
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AM 


ADD TO DELAY COUNTER 


01816 


a a 

46 


01840 
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BI 


OVERFLOW? 
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46 
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BI 


CHECK SW H 
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AM 


SHORTEN DELAY 
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46 


01900 


01400 


BI 


OVERFLOW? 


01888 


49 
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00000 


B 
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TFM 


RESTORE LONG DELAY 


01912 


49 
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00000 
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01924 
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41 
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39 
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WA 


PUNCH A CARD 
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46 
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BI 


WRITE CHK? 


01972 


11 


02042 


00001 


AM 


STEP CARD PCH COUNTER 


01984 


43 


02044 


02035 


BD 
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ERROR ROUTINES 
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